home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / test / mosmlyac / test3load < prev    next >
Encoding:
Text File  |  1997-08-18  |  163 b   |  12 lines  |  [TEXT/R*ch]

  1. load "test3main";
  2. let
  3.     open test3aux test3main;
  4. in    
  5.     case red (readlam "test3.lam") of
  6.     App(Bas 78, Var(Bas 78)) => "OK"
  7.       | _ => "WRONG"
  8. end;
  9.  
  10. quit();
  11.  
  12.